home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir44
/
dungeon9.zip
/
ANSI.BAS
next >
Wrap
BASIC Source File
|
1994-05-15
|
7KB
|
472 lines
REM ansi.bas v1.0 for dungeon screen
CLS
COLOR 12
PRINT SPACE$(4);
COLOR 7
PRINT "·";
COLOR 8
PRINT "░"; SPACE$(15);
COLOR 7
PRINT "·"; SPACE$(25);
COLOR 8
PRINT "░ ░ ";
COLOR 7
PRINT "∙"; SPACE$(6); "· ∙ ";
COLOR 8
PRINT "░";
COLOR 7
PRINT "∙"
PRINT SPACE$(6);
COLOR 8
PRINT "░";
COLOR 7
PRINT "∙"; SPACE$(10);
COLOR 8
PRINT "░ ░"; SPACE$(8);
COLOR 7
PRINT "∙ · ";
COLOR 15
PRINT "▄▓▓██▄ ";
COLOR 7
PRINT "∙ ";
COLOR 8
PRINT "░░"; SPACE$(15);
COLOR 15
PRINT "Welcome To";
COLOR 8
PRINT "░ ";
COLOR 7
PRINT "∙"
PRINT " ";
COLOR 8
PRINT "░∙░▒░ ";
COLOR 7
PRINT "∙"; SPACE$(9);
COLOR 8
PRINT "▒· ░"; SPACE$(12);
COLOR 15
PRINT "▐███▓█▓▌ ";
COLOR 8
PRINT "░ ▒▓░"; SPACE$(7);
COLOR 15
PRINT "· The Dungeon v9.0 "
PRINT SPACE$(5);
COLOR 8
PRINT "░░▒▓░"; SPACE$(9);
COLOR 7
PRINT "· ";
COLOR 8
PRINT "▒ ░";
COLOR 7
PRINT ". ";
COLOR 15
PRINT "· ";
COLOR 8
PRINT "░ · ";
COLOR 15
PRINT "▀▓█▓█▀"; SPACE$(6);
COLOR 8
PRINT "░ ▓▒ ";
COLOR 7
PRINT "∙"; SPACE$(6);
COLOR 15
PRINT ". · ";
COLOR 7
PRINT "∙ ·"
PRINT " ";
COLOR 15
PRINT ". · ";
COLOR 7
PRINT "∙ ·"; SPACE$(6); "∙ ";
COLOR 8
PRINT "▒▓▓ ";
COLOR 7
PRINT "· . ";
COLOR 8
PRINT "░▒"; SPACE$(17);
COLOR 7
PRINT "· ";
COLOR 8
PRINT "▒▓"; SPACE$(8);
COLOR 15
PRINT "An Adventure Game"; SPACE$(4);
COLOR 10
PRINT "▄▄▄▄ ";
COLOR 8
PRINT "░▒░ ∙"; SPACE$(8); "░▒▓▒";
COLOR 7
PRINT "· ";
COLOR 8
PRINT "▒ ▒ ";
COLOR 7
PRINT "· ∙ ";
COLOR 8
PRINT "· ░ ░ ░";
COLOR 7
PRINT "∙"; SPACE$(3);
COLOR 15
PRINT " By The Author"
PRINT SPACE$(3);
COLOR 10
PRINT "▄█";
COLOR 2
PRINT "▓";
COLOR 10
PRINT "████ ";
COLOR 8
PRINT "░"; SPACE$(6);
COLOR 7
PRINT "· ";
COLOR 8
PRINT "░▒▓ ░ ▓"; SPACE$(13);
COLOR 7
PRINT "·"; SPACE$(8);
COLOR 8
PRINT "∙░▒░ ";
COLOR 15
PRINT "∙"; " Of Dnddoor "
COLOR 7
PRINT " ";
COLOR 10
PRINT "█";
COLOR 2
PRINT "▓";
COLOR 10
PRINT "██";
COLOR 2
PRINT "▓▓▓▓";
COLOR 10
PRINT "█";
COLOR 15
PRINT " ·"; SPACE$(11);
COLOR 8
PRINT "▒ ";
COLOR 7
PRINT "∙ ";
COLOR 8
PRINT "░ ▓∙ ";
COLOR 7
PRINT ". ";
COLOR 15
PRINT "· ";
COLOR 6
PRINT " ║";
COLOR 4
PRINT "██▄ ";
COLOR 7
PRINT "▄";
COLOR 6
PRINT "║";
COLOR 4
PRINT "██▄"; SPACE$(9);
COLOR 7
PRINT SPACE$(11)
PRINT " ";
COLOR 2
PRINT "██████████"; SPACE$(10);
COLOR 7
PRINT "∙"; SPACE$(7);
COLOR 8
PRINT "▒ ░░▒▒"; SPACE$(6);
COLOR 7
PRINT "▄";
COLOR 6
PRINT "║";
COLOR 7
PRINT "█▌ ██";
COLOR 6
PRINT "║"; SPACE$(7); "║";
COLOR 4
PRINT "█▄ ";
COLOR 8
PRINT "░";
COLOR 7
PRINT "∙"
COLOR 10
PRINT "█████████████"; SPACE$(17);
COLOR 8
PRINT "░▒";
COLOR 7
PRINT "∙ ";
COLOR 8
PRINT "░ ";
COLOR 7
PRINT "▄▄█▓";
COLOR 6
PRINT "║";
COLOR 7
PRINT "▓█ ▐▓█▓▄ ▄█";
COLOR 6
PRINT "║ ";
COLOR 8
PRINT "∙░▒░ ";
COLOR 7
PRINT "∙";
COLOR 8
PRINT "∙ ░ ░";
COLOR 7
PRINT ". ";
COLOR 15
PRINT "·"
COLOR 2
PRINT "██▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓"; SPACE$(14);
COLOR 8
PRINT "░ ░";
COLOR 6
PRINT "\";
COLOR 7
PRINT "▀██▓██";
COLOR 6
PRINT "║";
COLOR 7
PRINT "█▓▌█▓██▓█ █▓█";
COLOR 6
PRINT "║";
COLOR 7
PRINT "█ ";
COLOR 15
PRINT "·"; SPACE$(7);
COLOR 8
PRINT "▓ ";
COLOR 7
PRINT "· ."
COLOR 10
PRINT "▓▓▓▓▓▓▓▒▒▓▒▓▒▓▒▒▓▓▒"; SPACE$(8);
COLOR 7
PRINT "∙ ";
COLOR 8
PRINT "∙ ";
COLOR 6
PRINT "\\";
COLOR 7
PRINT "██▓█";
COLOR 6
PRINT "║";
COLOR 7
PRINT "▀ ";
COLOR 7
PRINT "\▐█▓██▓█ ██";
COLOR 6
PRINT "║";
COLOR 7
PRINT "█▓ ";
COLOR 15
PRINT "· ";
COLOR 7
PRINT ". ";
COLOR 8
PRINT "░ ▒"
COLOR 2
PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒░░░"; SPACE$(13);
COLOR 7
PRINT "· ";
COLOR 6
PRINT "\\";
COLOR 7
PRINT "█▀ ";
COLOR 6
PRINT "║";
COLOR 7
PRINT "\ \▀██▓███/ ▀";
COLOR 6
PRINT "║";
COLOR 7
PRINT "▓██▄"; SPACE$(9); "∙ ";
COLOR 8
PRINT "░"
COLOR 2
PRINT "▒▒░▒░▒░░░░░░░░░░░░░░░░";
COLOR 2
PRINT "███";
COLOR 14
PRINT "████"; SPACE$(8);
COLOR 7
PRINT "· ";
COLOR 6
PRINT "\";
COLOR 4
PRINT "▒▒▒▒";
COLOR 6
PRINT "_";
COLOR 7
PRINT "\";
COLOR 6
PRINT "__";
COLOR 7
PRINT "\";
COLOR 6
PRINT "_║";
COLOR 7
PRINT "▀▀▀/";
COLOR 6
PRINT "_";
COLOR 4
PRINT "▒";
COLOR 6
PRINT "■";
COLOR 4
PRINT "▒";
COLOR 6
PRINT "■";
COLOR 4
PRINT "▒▓";
COLOR 6, 4
PRINT "/";
COLOR 15, 0
PRINT SPACE$(5); "."
COLOR 2
PRINT "░░░░░░";
COLOR 2
PRINT "█";
COLOR 10
PRINT "░";
COLOR 2
PRINT "█";
COLOR 10
PRINT "░░░";
COLOR 2
PRINT "█";
COLOR 10
PRINT "░";
COLOR 2
PRINT "█";
COLOR 10
PRINT "░";
COLOR 2
PRINT "████████";
COLOR 14
PRINT "███████";
COLOR 1
PRINT "████████";
COLOR 15, 1
PRINT "▓▒";
COLOR 1, 0
PRINT "█";
COLOR 4
PRINT "▒▒▒";
COLOR 6
PRINT "■";
COLOR 4
PRINT "▒";
COLOR 6
PRINT "■";
COLOR 4
PRINT "▒";
COLOR 6
PRINT "■";
COLOR 4
PRINT "▒";
COLOR 6
PRINT "■";
COLOR 4
PRINT "▒";
COLOR 6
PRINT "■";
COLOR 4
PRINT "▒";
COLOR 6
PRINT "■";
COLOR 4
PRINT "▒";
COLOR 6
PRINT "■";
COLOR 4
PRINT "▒▒▒▒▓";
COLOR 6, 4
PRINT "/";
COLOR 1, 0
PRINT "████████████████";
COLOR 2
PRINT "█████████████████████";
COLOR 14
PRINT "██▓██";
COLOR 1
PRINT "▒▒▓▓▓▓▓▓▓▓▓▓";
COLOR 15, 1
PRINT "▓▒░";
COLOR 1, 0
PRINT "▓▓";
COLOR 4
PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▓";
COLOR 6, 4
PRINT "/";
COLOR 1, 0
PRINT "▓▓▓▓▓▓▓▓▓▓▒▓▒▓▒▒▓";
COLOR 2
PRINT "████▓███▓█▓██████";
COLOR 14
PRINT "████▓▓█";
COLOR 1
PRINT "▒▒▒▒▒▒▒▓▒▓▒▓▒▓";
COLOR 15, 1
PRINT "▒▓░▒";
COLOR 1, 0
PRINT "▒▒▒";
COLOR 4
PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
COLOR 6, 4
PRINT "/";
COLOR 1, 0
PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
COLOR 2
PRINT "██▓▓▓▓▓▓▓▓▓▓▓";
COLOR 14
PRINT "▓▓▓▓█▓█▓▓▓▓▓▓▒";
COLOR 1
PRINT "░░░▒▒▒▒▒▒▒";
COLOR , 7
PRINT "▓▒▓░";
COLOR 15, 1
PRINT "▓";
COLOR 1, 0
PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒░░░░";
COLOR 14
PRINT "▓▓▓▓▓▓▓▓▓▓▓";
COLOR 2
PRINT "▓▓▓▒▓▒▓▒▒▓▒▓░▓";
COLOR 14
PRINT "▒▓";
PRINT "▓▒▒▓▒▓▒▓▒▓▓▒▒";
COLOR 1
PRINT "░░░░░▒░░";
COLOR 15, 1
PRINT "░";
COLOR 1, 7
PRINT "▒▓▒▓";
COLOR 15, 1
PRINT "░";
COLOR 1, 0
PRINT "░░░▒░▒░▒░░▒▒░▒░░░░░";
COLOR 14
PRINT "▓▒▓▓▓▓▓▓▒▓▒▓▓▒▒▓▒▓";
COLOR 2
PRINT "▒▓▒▒▒▒▒▒▒▒▒░";
COLOR 14
PRINT "▒▒▒▒▒▒▒▒▓▒▒▓▒▓▒▓▒▓▒▒";
COLOR 1
PRINT "░░░░";
COLOR 15, 1
PRINT "░";
COLOR 1, 7
PRINT "▓▓▒▓";
COLOR 15, 1
PRINT "░▒";
COLOR 1, 0
PRINT "░░░░░░░░░░░░░";
COLOR 14
PRINT "▒▒";
PRINT "▒▓▒▓▒▒▓▒▓▒▓▓▒▒▒▒▒▓▒▒▒▒";
COLOR 2
PRINT "▒▒▒░▒░▒░▒░░░░░";
COLOR 14
PRINT "▒▒░▒▒▒▒▒▒▒▒▒▒▒▒▓▒▒▓▒▓▒▒▒▒▓▒▓▒▒▓▒▓▒▓▒▒▓▓▓▒▓▒▒▒▒▒▒▓▒▒▒▒▒▒▒▒▒▒▒░▒▒░░▒";
COLOR 2
PRINT "▒░▒░▒░░░░░";
COLOR 14
PRINT "░▒░░░░▒░▒▒░▒▒▒▒░▒░▒░▒▒▒▒▒▒▒░▒░▒░▒▒░▒▒▒▒▒▒▒▒▒▒░▒░░▒▒▒▒▒░▒▒░▒░▒▒░░░░░░░░"
COLOR 7, 1
PRINT SPACE$(80)
PRINT SPACE$(80);
COLOR 7, 0
END